home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / sixpack plus (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  62 lines
  1. 5 gosub 6000
  2. 6 gosub 7000
  3. 7 :
  4. 8 print"[147] six pack ready":rem                 the following lines are orginal
  5. 9 :
  6. 10 rem 64 sixpack plus-karl johnson iii
  7. 20 forj=51968toj+204:readk:pokej,k:next
  8. 30 sys 52005:end
  9. 31 data 72,138,72,152,72,8,32,228,255,201,191,208,3,238,32,208,201,174,208
  10. 32 data 3,238,33,208,201,13,208,235,169,0,133,198,40,104,168,104,170,104,162
  11. 33 data 58,160,203,142,6,3,140,7,3,120,162,70,142,20,3,140,21,3,88
  12. 34 data 96,72,173,141,2,201,1,240,249,104,76,26,167,165,197,201,64,240,22
  13. 35 data 201,7,240,21,165,215,201,133,240,32,201,134,240,28,201,135,240,24,201
  14. 36 data 136,240,20,76,49,234,166,145,224,251,208,8,162,24,160,0,24,32,240
  15. 37 data 255,76,49,234,166,154,224,3,208,247,56,233,133,10,10,10,10,24,105,152
  16. 38 data 133,251,169,203,133,252,160,0,177,251,240,225,32,210,255,200,208,246
  17. 39 data 68,65,84,65,32,0,0,0,0,0,0,0,0,0,0,0,76,79,65,68,34,36,34,44,56,0,0
  18. 40 data 0,0,0,0,0,86,69,82,73,70,89,34,42,34,44,56,0,0,0,0,0,76,73,83,84,0
  19. 50 :
  20. 60 :
  21. 70 :
  22. 80 :
  23. 90 rem the following lines are added
  24. 91 :
  25. 92 :
  26. 93 :
  27. 94 :
  28. 6000 poke53280, 0:poke53281, 0:print"[147]";
  29. 6001 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  30. 6002 print"[152]    LOADSTAR PRESENTS     "
  31. 6003 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  32. 6004 print"[172]                    [146][187]"
  33. 6005 print"                      "
  34. 6006 print"     [211] [201] [216] [208] [193] [195][160][203]    "
  35. 6007 print"[163][163][163][163][163][163][163][163][163][160]                     [146][163][163][163][163][163][163][163][163][163][160]       [208] [204] [213] ";
  36. 6008 print"[211]      [160]"
  37. 6009 print"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]                ";
  38. 6010 print"     [160]"
  39. 6011 print"[163][163][163][163][163][163][163][163][163]  By Karl Johnson III[160][146][163][163][163][163][163][163][163][163][163]                ";
  40. 6012 print"      "
  41. 6013 print"[188]                    [146][190]"
  42. 6014 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  43. 6015 print"[152] PRESS SPACE[160]TO[160]CONTINUE  "
  44. 6016 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  45. 6020 geta$:ifa$<>" "then6020
  46. 6030 return
  47. 7000 poke53280, 0:poke53281, 0:print"[147]";
  48. 7001 print"[155][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  49. 7002 print"[152]    [211][201][216][208][193][195][203][160][208][204][213][211]    "
  50. 7003 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  51. 7004 print"[206][207][212][201][195][197]:[155][207]nce[158][211][201][216][208][193][195][203][208][204][213][211][155]is"
  52. 7005 print"activatedyouwillhaveto"
  53. 7006 print"reboot[158]LOADSTAR[155]toreturn"
  54. 7007 print"tothemenusystem."
  55. 7008 print"[154][196]oyouwanttocontinue? ([217]/[206])"
  56. 7010 geta$:ifa$="y"ora$="[217]"then return
  57. 7020 ifa$="n"ora$="[206]"then7030
  58. 7025 goto 7010
  59. 7030 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
  60. 7035 ifer<>63 then print"[147]":end
  61. 7040 load"one-screen winners",8
  62.